﻿Imports Model.Geometry
Namespace Result
    Public Class HorseResult
        Public false_ptlist As List(Of Point3d)
        Public false_ptlist_up As List(Of Point3d)
        Public false_ptlist_down As List(Of Point3d)
        Public true_ptlist As List(Of Point3d)
        Public suvery_center As Point3d
        Public design_center As Point3d
        Public stand_ele As Double
        Public max_ele As Double
        Public min_ele As Double
        Public mileage As Double
        Public stand_mil As String
        Public fitcircle_up As Circle
        Public fitcircle_down As Circle
        Public maxpt As Point3d
        Public minpt As Point3d
        Public design_max As Double
        Public design_min As Double
        '方位角 平面
        Public Vec As SingleVector
        Public pl As Plane

        Public Sub New()
            false_ptlist = New List(Of Point3d)()
            false_ptlist_up = New List(Of Point3d)()
            false_ptlist_down = New List(Of Point3d)()
            true_ptlist = New List(Of Point3d)()
            suvery_center = New Point3d()
            design_center = New Point3d()
            fitcircle_up = New Circle()
            fitcircle_down = New Circle()
            Vec = New SingleVector()
            pl = New Plane()
            maxpt = New Point3d()
            minpt = New Point3d()
        End Sub
        ''' <summary>
        ''' 计算里程的通用表达方式
        ''' 如K44+95.332
        ''' </summary>
        ''' <remarks></remarks>
        Public Function standmil() As String
            stand_mil = "K" + Math.Truncate(mileage / 1000).ToString() + "+" + Math.Round((mileage - Math.Truncate(mileage / 1000) * 1000), 3).ToString()
            Return stand_mil
        End Function
    End Class
End Namespace